%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim rs_dados, strsql, dados call abre_dados strsql="SELECT * FROM equipe ORDER BY codigo" set rs_dados=dados.execute(strsql) %> <% dim rs_noticias, noticias call abre_noticias strsql="SELECT * FROM noticias WHERE ck_ver = 'S' ORDER BY codigo desc" set rs_noticias=noticias.execute(strsql) %> <% dim news, rs_news, codigo codigo=Request.queryString("codigo") call abre_news strsql="SELECT * FROM newsletter where codigo=" & codigo set rs_news=news.execute (strsql) %>